home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / WELCOME.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-08-31  |  545 b   |  28 lines
  1. ' WELCOME.BAS
  2. '
  3. '            Welcome to the QuickBASIC Interpreter!
  4. '
  5. ' To run this program, drop down the Run menu and choose Start
  6. ' or hold down either Shift key and press the F5 function key.
  7.  
  8. CLS
  9.  
  10. FOR i% = 1 TO 5
  11.  
  12.     READ column%, word$
  13.  
  14.     FOR row% = 2 TO 18
  15.         LOCATE row%, column%
  16.         PRINT word$
  17.         LOCATE row% - 1, column%
  18.         PRINT SPACE$(LEN(word$))
  19.         SOUND (2400 / row%), 1
  20.     NEXT row%
  21.  
  22. NEXT i%
  23.  
  24. LOCATE 1, 1
  25.  
  26. DATA 25, "Welcome", 33, "to", 36, "Learn", 42, "BASIC", 48, "Now!"
  27.  
  28.